home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / HTML / Code / AppServer / dpoCustomer.dfm / dpoCustomer.txt
Encoding:
Text File  |  1999-10-13  |  320 b   |  16 lines
  1. inherited Customer: TCustomer
  2.   OldCreateOrder = True
  3.   inherited qryMain: TQuery
  4.     SQL.Strings = (
  5.       'SELECT * FROM Customer WHERE CustNo = :CustNo')
  6.     Left = 37
  7.     ParamData = <
  8.       item
  9.         DataType = ftInteger
  10.         Name = 'CustNo'
  11.         ParamType = ptInput
  12.         Value = 0
  13.       end>
  14.   end
  15. end
  16.